#@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@W!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr AUTORUN.SYS"0^v' eF@[2@@&B *tB 0-F$[neД$CP @M0sʀS;B:&:rҐ9S}MP t2-ļyCRdY@*@0J08RiwN@ ̚@ Je)1uuSN6u1IO@Af j BɌF`8U֯CTbZI`}D9fǂ }洙7r:&"' 2r&6 Цl@Ls]Г#͛0dʐqqտ}L 1 ZiQG XPEhǁ@Bĵe`N;Qs5mca}Ip>VZh \^Stɽ1"WyVbaAo1Gl $ Qe T#=QIv ݁LmhcWfPQs }'M1CM[L !UX#NȀF#ON N4!< !JE t"u$+1iVD2R*€PaxT l*0t"l*ttDZT< }(h`RJ2wD3& HB @B [p=,Ch̄UVȠ<Տ(Z(pDu؉w8U(/OpUseŐ9ܨVBY]y-H }3%C2:@iF@0ptBB8@D :$DTDT @rMȻK#t#@!J*4bJ*F) }H TLA'&l #Ȁ8_.x'K!Jr ` {-^ 1VhE 1 ` XJB }(D-H04&dCDG@@2HZ `BR-\u pEsK]" .|< T$x ;e z<040 -k) } 1nbr5i)ÊQ"5)tN*1_؁(~7H>0!1xB ZvPWhڑ^%}.{iݪ6/8?!\!uP) @p)@CHAʡl!4$"\-HUN c'4OT!Te|}cB6rp(,aRD@)\QY@"ey@CD,+ Yb2Z]lըPD#@ɠ,\@[AE< 3FR@R@BP}_4BxZ b<jAFg2@N+R>zEZ4 |_ ih$2:a kx HT!(^遆0ڞW|@8Hz@}tbՇތbJAFh+Z9VΠb)TQ V@#XE1Z!)2ԐF0Q \# kj4 iPR(u@h(0>EĔH:`84%*Jx}9s s}; wB& i2@`X94X beP )4P]\HA4>`n%{ #*.v}0! #@!$ >hDF! pb܎@72А)G2$hFF2& @20p# 0ܘ*.ݒ:iJ 7}/>

} /di IX{LXP(T>h]>Qc OQ8;]>B=p0Q@ ( <_ h-}PS/$ + 6p8/ B  9 ; e ɸʘpfcָ f `6P`6 ϠW/Eh`a(l}BXPH  & w )=F f J*(/ Ƞ9 M L~/YyB0)dȇfhaBfi0&d{8}$Xy{P gBt{RyfME68 {5H  L0('7% 3 F Uɀ@ɰ)Te ]h8|` hn 'p9} B`6jS A{7kPk w=`` TPd p eB`k8xWwPnݙ L' _Йչ[}[ _F<`8DPXQIpHa JG{0 f*oozsuf AYBYДFU\ `@Uc> { f `  p<6}(^K`|OYU > TPIPy = o&ĒaȖZRxl P̀f  -ʣ棹BJFH  o 7f  zPȏy g'8p 8V/TJ Z /$T }`[: WAA $B : CH `` @ p`@07`*zj*s 0w c @Ky` 0PP |@  @< v!}{hEr4BPeP?`/M@-$ O|:`x{Χ@B/dB`q c*ē  95K`ޖ "}JVmml(ff({ӧ 0P@fCEٗ ݷWyy +0++` , , ,@-----@ - -- .. ..... .#}. ?&Obu!'"-PVe    060z00000T@Y@^@@@$}@ePPPPPPP```')66@66066 6Ì `6:̨zL n :,aV^x  XAD +mho%}0AІLӭ j `p/ P1 + ,Wrfd 7`m 0 \A!h5T &}Ya `8Vp7I0CEpd-wSE/:;jAݚ9bIP >@`BP Ӕ8< 8 Ap7 '*]r&Ҡ,JX'}`zbw0)P bi @ 0G9}A}o EPoQ P.7j` ޕ0yO JrPGDK+(}/TM f8?擃KC C$DtQ 1 l$W  > >0  ɃPYPr.P K$T x j*Dڵ^m @ 0`*}E㕃8>+0 :ߩ@⮭8&^'}^ hZКp Lc^h=|&o<ބpq^{8!x|r+}:`iZnU~.hEhݲظDڙm0 r njȭ<@ B }P7gc-; f=z0å@ECd>RUx: !FAYm χ0֭@1ֵ5-}j9=`/^{=D P,KL-Dp `dM/0$ .K[B0P(0/]0/a YoP Gƪ Bp p.} A@v@)s{!JM UDPNI^{v -T ]Ű 4?]MOwt;@C [LAB 5 ."Ȕ+LGN/}0!X^M'hA0A@P #%0L OJ;m"-:;bN@`iH:p#pL0éJPPP0}pEä:3:Lp0; q@~аk`ڻ$=|BPy߷ 7PpW:L0T4| N+%PK^1}Gx Gx `zuCRY'W P'p@pɠB zA#d@@L@4 !d@4NE^2}M;֡xfs/ 0Y Md8}Gr o 4Бk6𝺰v ɓL 4]ȐŚMfC`>(܉АmpfڷZ y3}ݷ]ۊmpۨBPDpR Fu0U` 97} ddgp` 2f9@S%9.PP Ԑ0s[ Ԡ΅%@ @  P 氕 p 2 0D S  . 氕 28}`  NX H @ ' m 7 qP  ?pq P@ ` Oې P 氕 p 2P  2 氕 29}[  1( 氕 2Ȋ[  `  2@ [  Nh  찕 P #@PP r@Q :} `9 pip͠0- D.% >MڻTyHKh-p!HKq L8gB Y@ ـy@ @ QP;}/ `YPP`P P p @ ` Q,TP {~!/i hP.j ` "t: @<}/i07 F 0@Pዑ`ݵTb Z0`fRVhe6%`NN0U`4IPNlR-M fU Ph=}> 5>M @ PL =`Hx '<Wi??\?# @3 ){;bN$R+fFק]*J -+AO>}!-P5.+➽" f" >V?֎ HBPe> @# I"xI b @ ?}`/`> 1#;ս  g KW-<9R`fc eX0LC˳`fc Xr 0Ph*<@} F;PP/x/1`@vK P0`$PP a/ o( ЬHl [3Z . .`$[ `6A}H 5   <+ <, I  g55{kނl,n`b @  &_ySB}VaO CQOR `O0IR,evxͪJ  IP Y0TR0B K KPYJo hH  -+tHK hC}s{S@¶#RRJC?08Oppڙ >4>6h@ XpFX &׮`BO`F0El@t9 D]]Fϊ 8D}EȒP`6pnn5Zl^cVbC662d`ՠ @xb`Հ/pȐc iɠP "aJRӶ> >p;p`4T lK0D@RE} AOt  ]B]1H < B< n%]4Lӟw`JawL crmp0߼e>X@ OF}.@KۀO f@ `P Ԡ8 0G P P "Pp {n@`/8*VW G}@ A B5"8@FΠ p@- U @`Pfp݆ ,n[@<ɣY  Mz`  rb џ.N!n` "k K p< J}p<N!>Pk  Qyu P P p phi "  𐓩Ʌ^BDj @p Е`1L R K}tCOMPILER.PCD200@Z o]yc BEH G A`ĿyHQbKH $Y@ U:6i:sg UL},E@&QH)"B""тnb f7nt6D0S 8b s0AfJ^!!*^|@ Q9}_Ё94f=U5Ôej8%W8MJM}`F|0jT[C==!  2죲(+'@@ Ff@Gw7`<#MLm7Gc8Nvp`'!N}Xh!L]&2@W eALwGyD  %| +D ~R h$=ƌ+G4h)@ ¢uV=|  _AjF"s!]G`*U}@4t"' PI-SQ1ͣ\$D@iF0N^lVGet8k:ӝIhBY*1 At D!'HYE $m@JWJV}T#1*M4 n0X$!$Q6奟i 6ʑGiA Gep 9h +FI LSoVՔ <:YQ)y5%W}iE,[sԻ\s+I,zEV3uc% ='BD pWwM+F V7*hr|FuR/)r5j]HK%KICy=,apDqRjX}y, ࡝IuP&rW3j`k mALGz *b@߭2GQY{aS(XVrB0DڗR":&NשβN:!âvߐ|8<1PY}v=б. VX}c(ڝpCYa 1!r(gAk d,0sA| vxgv8=&u%+p䣟Z}G'L~:%fE^crV&Noˎis6]qBn9qJjt)"p}v3E5vdb@*Ly+]h>/[}L ip0YP2 ;5EZ0C38$ a! t X"+qЕC vEZw,UAe}KtQ"s "Ak0ܦk-?Par\渧?:\}E!(xiW]_J%zBBHZepr)S6] xӕ,su:ZB74ūI>Qx]8ƩJd+^ojiiJ]}ߙTnPFqdh7 AE Sh71o`Qr$4n>QDVI:u ꨎula?HD|8"'3O~ ^} F@P|ա*5/  !h}_xYQcRh~@JMGu gQK*842o}"xN8_}?՗B(" *GV[ȁHF(Qd2($qKoЅ$NR8)PhFtNwR-Ո239du9j:D?T:~mH~(`}BQTluhdٗwopWfN0=‹AV<?g xI6`c}R@pC4Z'8{ș=5@w.'\uI@01t)@'YqtK&@P0O*3q'O$ui)*l0ܹKz'0*'ɝd}fu@yRD` @ a2:xe$p=ِCُ pP١2Pr`1uшF#AX5T Vi4ʠ#K$:)lue}I*R5ʡV)tiQdU:ڐ%dRzP):K{h4  _Qs9X||/`yY42v`pץؑd%1 W29f} -5_5~uuCo ɕ0Q 0: V9'XHy |ڀHjG* p zpj0 6BzHE`vb*g}*!PЁ `W٘J*ɇUPy/ |pz1t91opfa0 z 6%\I0A*+SקP@ЬW( -(Zmh}X1ZpBx:C{ʰO85#xp)gl{amo mZY@ +Rہ=5e[_i}x()?9 "OoX`[ixㄈa@L JGQs*5Kh:Z1cS*|t 5poЭZ(Ԛb]⋎mې" j}жi oж.)оr+t+JpkeڻrG@F3KkO II)9Zft;ky{  ;)P(I@x2+{@Pk}B3l}ԋU#{JN2=Ԛ`z¯ 語KCʰ81~> Zƾ o06ox,2#;8" \|l}Ȓ양\A0ӂa\)ʐl&[ʣܖ"`) !ohrVF0\|.s|)AaѬQl ˱  m}Q\ ̔a L|s(`  üQ}Sl˕ "г - = amUM#=!%'%=oo '|n} 5PБ.0 ތ}й`!I  ]GTapG]\_\z5o@[ /o -%:/G#X&3 e|o}j@Ǵ}ж 8 hAٚ ж2à(ڮ٤o g t;XwKi5,ݶ!=ݶ +*ݥ?ۛLp}= *qSGn d]Z>@ڂֵXH yb @DMEp6FcXhHk``5*Z#h .IZYݒBk5 qq} 0雷X[W-7myK>GRlub4;Va4o}1AMe,,c!`8㹚ryXcr}ґ$ydU-2-P}-O͆^~py^~j'h nIjAm y!xn{>3$δHK<cny["#s}석6 *w؅uݓ+r.B0}쁚0y^@ :\nQy; n꾎GY'ÞqVŞkyzILk@P.IOt}lLke p m]# a"_ +1^E?50PORO`@0N!u5yz .첸LnuO+9u}δQ}B` Wo(aeþYsjӾp0 QC#?&_(Lu~Ө Q ЉD_#5B{. 7vU(v}0 P%x`a_[ y-6X !5 ?a;ɯ2 U&/S`ݪ&MN;`w}}׏o0&//u! Q &A05`MA Q3&`e5jo( .4Ope } 62Ep07)5x}p>'O`p-P pm DVzTo)5 uJ_01 Q(`?^J+Î_o)5uy}K_0a QS (`Y7) (`Y7)5K׍e_0 Q)0O/0e_0 Q)PXEG . .4Opz}! Q )`?^Of+?+5>O/0Ͼ+5`>O/VP0 QC *`?^wOP瀯/aiAʪ{}_0 Q+`?^ý\o+5h>O _0q Q+PXG . 0 QC 0lϾ+ 0|}Ͼ+5p_I02O} 5, o` z5v>O/0n z5>O/0n zh,`Kqށ7n z5}}>^Z_Йؤ-P E_Йm DV0 u~a0 خ_4@ש:fs: R#"5z: R "5z: Re .X~} Q- *5(@"܀0a Q3t!݌ H; .5[@F@; .5s@ۖ H; .5@J; .5@ H;}{ӥPmU]eU]#gd勥i^@"0ܒvf~_ՕXf_UQe Ru /Xq  QQ_Tv0Q!ܒ}5 "4ܒ0 Q mj׀7m/pRR6ש]4֑X|bE% B *HS縑hK*;21w/m a}00`yk.`q¨݀ro>ҁ8o.Do 0py[ 0p2 .D 1o 1pyK1X̕0qN5Bo>r߀s>}LH p*G 0ҁw7>#Og̕g0qgN5DZw߀@0׊ 1в\9 1@* <e3:**"VW}3{) )/P #")Ϲ -l \uT-8 ?@;'` uT[-pYz6Yյҁo3py 2}S @;o` 2 [- 0;2 EҁHo3ж-_d*WL0ހҁHor)@-fQr}H`-若I <ҥn7fn@ҁ',(h QoLS*9H`j *i,L0Q3 45pjVv3@ҁ8o 45Z@}wTh"j *Vhe7*i,L f9@xpу*Ta*v3@@wTh"j *Vhe7*n Gb7*{BP0 Qc 4}Хn7*BP0 Q5|G%&"րbjVv3@ҁ8@DݠaE =Gb7**5`mmJPK0*Ep}{Uݺ 5:uAz[ :*5@C 55ͱPۀPD8tP_5 *{G5ׂE1>bpV٥6P,bp}d `ݢ*MN;d5H(/$``0a`Č6;2$pOkLܴp-**0c jp̱0q?pN͕?}p-5p]؁[KG|M j{Ra^{;ɞp:-[˴a^FQ 7kL25͡Vxa8@+Y8@+&}v7W{JPC"EޠH% I&ؐ A B6q 0'`PC 1ZP/`x1FY28`RN<}Ԁ## w"T [J)Ĩ-_Ɯi3Ԡ9U,[XJ0)A96̀o@0V@PzItĝ+mhPH^   2u C]5c}P;n>nA{T:D?*Be;w=}@ؐA\_A;p^oqs-D9z^Qp`}!'֞ 'Z$}b_p=h^zAW\t9^}:RJ&wbD .Vш$(vZvO P\e !;@i~Y;V:![U`o=;cJK%7(O hM _`Mt %:}e}vyl{Q)h}~=Pخ.اVP@CkKko$j}G]PkF=`F!ӍagЀ|K°h`Y栕I-= ZM yiaˑD~w(EWL>4^N<>uW Fq}ctI dΧX B;n~b/eUXR)+ ҊdO{UUVE ? PPx/.{X{N ?7=} a_4}ac[F5~196 bxfhal[ Rt{Q <C81@K*nI[[2$޼CVWeZwJ}Fne lIVbw;rx-0)^Nd5UTBiTM}52{3!U+3"5@$He@ʐdxJHUdEI51U (*{be]#X#"&.}Id}gZAL=RTeF.\ƲHky+%i^R1ּۈn>2M8(9R:Mu (_ 4A<46\6m&g}mH:JmSPY/ 9=A: AQY)ӣF#–N$^iHj  BS.iE-yR%1ݾΐN%e? kF6#O}e_z=h`sP0s#[gi%yFuŧk4Ϊz=#ÝܞJDi|RCۭ"84}MբDi&J&|pP8#{ A -"X4R}@F:|XttYH1(oL#xQ'v.e}'P M/Ѐ AxX#PR~BO 1TV8"4PЅK%aOX Q I}7"Uw ZL|dNrAW)P0D^/PQqOx8"2ZW~PÐU(v WF Np7fj!OAXq,P&},z[T[A!/}hJIPr~Pg*@`بJ{|QXx8DA:l pT:BA `U>nJ?"ЪP8AծgZŪ` ñƒ/俖b`x)b,C8mnB뷯/ -tkخ}ML7ܕf=`2w#aUX;ؤiv[E(GF-2@SziE~VZz(ɆxU6Wza_IxPY\AUmi}DP`0@d@Ms#E(#E[CnV$ ,CQ"P$oA#BV1cD}9$YVpCEU" F3-C,LNlT@MUP}<ԣhN6JNmYPnX &9cڈ@pB bk@80T1PLJz賭84P@081M95r C9+ ӡ.}\;cml8.4gwIQ #5D qû@ ^X?`a pbV(MoH^7(3B.Tr4RNUI~ XW eJPZ e6m.lnq}pIG5eh#Qe L@@@ZZ A{(q!U *Ū3@cbď`#˒.p G˜"u#Z5+w} \U @ d2-~zBc\jZ&a?ƓK` @,K\N"eSL};HHw= wJ*V(`@_} z0I`}7+G'`p-wJ%վh7Y> k5K7+KQl o),fWP.jPi`fr9h\jay}'|qi a*9fd-0@J%ár㓿 ^.7qZ|80jsfhuš=tN"MWh/f)c0d`}~5P$k^Eřqr5 'ڣ[mw97ʓ^i`UJnh/Z Rq?.2D1@@YH}F,|?[,nk\<ۙÙܛ׊-n5K[ϺFoo t+`$87i6dxf7Jɑq7e .gOb_Lp@s}d҅Ȧ7xz"f }ZhB/ijQjg@{a+W*PeJ'Yx NT g8M^y;}N9(=SO9'@QDPqYh^CDpzGPA9CPQ(_ fyON ~D\e9 'PUI 1 0K7SQIWZ }IfQGOE(BWYD}`R GB2d^z֗|{:'$ 4U? 1 B!('@ uo!Gmh* k*Gcyi(}3:me꫱y,9*$АkdAaX*֊,0. ,OLn6 21m6گސ+Qnh t) ں‘iƹ1R}N QĜuZnhPyX)qp v C=[KV?!;~%W};'qIxt|K]DuT@BCnG"F+i"., KQA@7JhAV)r,yN0:`x 8! " @P27 d u;e["X}PB/A&*IEc9O4=XE& C(X2 ?#G,$ >E"B| d`RnA :v};!px=@awX)}>Kk@rF j"Q?`aT`B ]*hAV"q4anhdP0rf~hڜ~F8l6k`SNp~ *#g8 %ؤ'k}"sx@ˍH)3W$"/H9->'=8xQi+[~ Q†*eiASr!܌ lp'S7 y'yey*fq[H|n}xQc1Cm>қHsĕ B ocDa6UN< fLm(ВŸ!EXҔ9 oCpF`rp$@9e.‚;JA+&@}~RiKXaC-I{N@ƶWv-Xa Bf+=곡mi+Ԯikn=| RnkkE[ L\G,kOqvo~O`H @`bo}(|µp 6 -pl\Kw]h|:7_{0F(')$#7YKL0pō[ʙ5E1|TRՖQe/jU(I(Ej7Z>^e Rfc&ỹ}oV _[Nw< L@, ŮW-~2<87ԡ W sh4nX[Dq4AOZ];63 ?۶ KAMINIT.PCD}0`~G oxcB P.<@]|1$BC1t-̠Vn`axH NR 5 B:HHc H} N 8HxZ:Ț΃dCA<du 8PAg#C,2R H̐n`L4`B)˶LΟNI'ep F 5]]q}-"gMr p&@0OpG~9@s<}2{<h@k Efv^l_hmw5 Bxfg' kv"n}x۵iX4fÍF_ Y`pT7aQ@bXGc܂e{ݡ_dعZWnBvىݞB):SBBP0u }0`iBwj  @Y )<AAifFf]F9"w,fevYQ``qCz8· - -&A K.x} TX"P`^p8Сapp0@ 9gmnB`n2;/nB|o)K(qmrBp௾% P#WP;3 ep1DF}P#dm}uJ" Y]lX%*Q!t\tC"ty)Pא8 Ǚic0W]w!; } GG 4aM9m@;!yIÒL}@cC`$fo@+z W;CFDk|)peq$m`z D V(r܋[-hg r  Y0.} !#@%@z0!(d0!#TVTa[:bLc1 cĔEyn/ 0_YD oÛ) @k&ع^k{Cf0yP6pLj}:݁ \yG-1rM8Ûx&3o,XQGuAb$ C-%I0o n&qT)X;RJMy }83Uv S6jWү"SN)?QVd"9D#_9qQ BZqFn"  t-Ɏ?/:z\0 k粸E$P(oBWƯXRk}TcxQΑ.#ў {֌CiOm8s);O| s (8P:eN-G.PNOTITLE.OBJ0`}wRAMDISK1.DATc0`g (@Dd@'*ZaYXa[eY$bNI:IV1bB S R-(y2%0a"x~}(րN@RAMDISK2.DATQ0`Z DbD$NPqeME(|"MC4I  /8,T6Ib)DZ Ue&RAM}DISK3.DAT}0`xq o"JP&E`C J 0b #C< 0K&|!T@ sg B4DRp  ɔ'} %˄!72 1P4l18(` -_8 @`d !d|7vrdFrJдC@8/( D]pBpo M7x *8}Q@Pp$@p\P!m, k 8 u;yi9<[8tE/gOW=|55\!gET]7A8`Ŝs_m50Sq\&l %H@h}xaV.]qd[Av$XRSVDWRDS.TXT0`M AL)!(e NJ !9$&O f|Ia$e)ER" p a},'*t2E'P*8 )'[ٸiI*1$RIׁD\qB WVJ%U "En*ޒ`IR cddN#IL2ɸ @$ȓX*I!}M7)dSaJ"7CR%E@=Ф#TlbdИ<J^L;$AJojdϛcT~a_k \f\  mr`}4=8DDT}ЃSIPm2BPTTGIAb%b0 RzdCxHMDKF&SiN0 nΔw(Lڄ iȀF2vBI7 r:bJ2'Sl2f9i}C&ٰ+EJ6i$|#Ř1.Ej(jE2fF  $ 6fR '^1Ǔ[rf,W-оɨƍRC`$CsEu1wC}ua!c 5DXFDBe0ĝwU8m!*`Dg =D7ZiOӹARH@$sM1aQF Iǃb0C 2Ġ :9#~D !@Zlv[}nS!Bsu$PFhxZUtoңriQork.0jʡ F0aQ~J몷RPBxMJh ̡}Dt*갶d *xe˫)| mKf. ֣ QiJf aqi\ ) mud(oH }-Pj`}fk8:Gnks/)/FL:e1 ,(2o:*DS$1o( ;na;MGn*0Cj|#+o}., o-}D6J&} A51/kt1ϑks1~o,F s]~ˡkdvF΋Ρm;na;MGn*0Cj|#+o}., o-Hd M * @  $ % CC$$)%1 Udߥ$9%: !0 S$%} DD˙`  }J)Lr J  ((  p L ()   J}L= ( L 0q A    IB JC;? D W } LL  ` W )LA!  ߰")-݆ p" } $G@LL 08`Q")<2Q0 -G$Ș݆ UL# ; p8(()(0ʥ)NQ`}$GȘ݆LU )L ݆ L GȘ ݆LL )W>Z   HH)H }p h  hyhy D L> L JJ    ! LA*` BF}7'8  M HN H` 8 Z  \LdJJ!"! GFE@F (!L }EE !E^ ^ E E7EȩEdE/EȩE  D } .L }  ;F d  ;?F7F? ( .   Z D LL d  } . D  L    p  E` , d)  D L) 0BM݊L݉ } ML  N݆ L NLML [ TEqEHȱEqEh 0Gȹ G } HLL GɛL  LFREE SECTORS G) *Gȩ GȽG GȌ*jj >G} C8jJ3j2CD( C202C ԠBX` N 1? l LlD:RAMDISK}.COMLu L1 L ;LHL  T`  `1  ɐ     `TU } L ? .  t`GBJ ~DEHI B V0dV}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh}DEL8HI4 0 HI,0 0  9 .G VLO },0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI!} V0 0`B;DEL`?<0LV`@ʆ v s? F0Ξ05: [ BDEHI"} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO #}STILL RUN DOS B;DE J  (` 9 V⪍ ઍ  -$}LLu ÝDEHILV 9 .l 9 .l  `` s$B BH%}I|DE V BLV nB,DE JLV B V BLVDEIʩ BꭝLu } 3E:}DISK OPERATING SYSTEM II VERSION COPYRIGHT 1984 ATARI CORP.A. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDG '}E J. DUPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRES (}SF. LOCK FILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES P. FORMAT SINGLEL !N' )}#"&))9(&*)/h)''-&؆莟R'S  vL/ˢ L }Insert DOS 2.0s, type Y Λx  *}DEfHI 1莏#q! @ y0ɛ8A0,' ȅ 1 1ild! 1L!NO SUCH ITEMSELECT +} ITEM OR FOR MENU! 0 .z:*{}.|{ 1 0 0JB 18L%|DL ,}%DIRECTORY--SEARCH SPEC,LIST FILE?[# 0 0 &|D3" 1L!NOT A DISK FILEN !B 1L!E# 1 !BD -}ED:}:1BJ|DE 1DEBHI 1 h0ߢ 0. .}  0?詛 1 y0YЛ 1 ;#L" ;#L! BL1TYPE "Y" TO DELETE...DELETE FILE SPEC /}COPY--FROM, TO?OPTION NOT ALLOWED697 FREE SECTORS COPYING---D8:COPY32.COMl# 0|D .L/%# 0}##JB|DE 1BHID#E 1#0: B 1L!#͑### B 1#c$0SY 1}S1}:## # # .#Ƚ# # 𩛙## 1,#PD#ELJ- <.BJD#E 2}1 1HH 0hh|DL%1}:̳# L% #D#EL% 1 0 . .0O% 1L!WILD CARDS NOT A 3}LLOWED IN DESTINATION 0 <.|K} 0.* 1 y0 0)INSERT BOTH DISKS, TYPE RETURN^, 1 y038逍 N, 1L! , ?}C, t*  Lx+, 0 ^, 1 y0 , ,0,0 ,L+ ,I0 ,Vǭ0 @}Ξ, 0 }, 1 y0C,ШC, 0K'!" H H 'h h Lx+!EF 5L1L!D,I,Hh A}` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNINSERT DESTINATION DISK,TYPE RETURN B}`  `8 rL1`-* 1P* 1 y0Y`hhL!NAME OF FILE TO MOVE?- 0 0|DL% <. C},^ 1 70 0 .@L# .BJ 1  DEHIB V L1 ,} 1 70,L.  D}JB|,#P#DE 1 HI BDEHHII 1 B 1 ,^ 1 70,0La- B V,#P E},^ 1 70 0L#L!-* 1P* 1 y0Yj383}mm ݭ F}}`8}``|* ? ɛ,`|:-)| / 1L!`DESTINATION CANT BE DO G}S.SYS0 0H{ 24Δ 28/L!/) 2 Π 2 0 ξ H}hAΞB,0 J 1 BDEHI,HÝDE 1HIHIDELSAVE-GIVE I}FILE,START,END(,INIT,RUN)O S0 1`BDEPHI V` S0H 1 L! J}0 0 1L~0`PLEASE TYPE 1 LETTER,0`hhL! 70 1L0L<1 ,;ɛ7,"ɛ:ݦ1ݥ K}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{NAME L} TOO LONG B VL!` L1I H1EΝDL1|mDiE` V0`8d/8 i:222 1 L M}!ERROR- 170ɛ+,' 20*.. өr2 1``2TOO MANY DIGITSINVALID HEXA N}DECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8u O} ECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8u0^3E: ~0 0 2 0`` ӭJ 2 92Please remove the cartridge 92and re-boot the disk.M Q}Lw0`8|0` 2 92The current value of MEMLO which is J300 J300 92$XXXX, is too high for the R}Draper 92Pascal Supervisor to be loaded. The J3_1`1| J3a1b1 92maximum value for MEMLO is $YYYY. 92The m S}ost common cause of this problem 92is from DOS allocating too many 92buffers. Consult your DOS manual for 92in T}formation on lowering the number 92of buffers. 92Press .L62UThN2hO2N2O2M2H` BHIDEh V U}LE2O2HN2H`` B V` x2`BD0EJK VV 92}`wLI3 2 92D R A P E R 92P A S C A L V} 922 . 1 92from  92Draper Software  92Copyright 1989  92By Norm Draper x2`H) V3hJJJJ 0:i` W}0|ALC D1:INIT.PCDK:S: X}j% AɛL`LL`pHmIm "; Y}+;ȑL0 p@ B L9BݝDAEJK L90L]LW ; <** Insert A t= < Z}diskette **** Press any key when ready **** or press ESC to exit ** ; 8LL!  U> t=p@ B L9TT [9 ;Ŭ ŭLS! < ś << _}>Repeat,<>Menu,<>Exit ;/ 8 8l  >L)! 6"L)!, W9 L,д W9 L2 `}ȥȥȥȌi iū Ū -"L6 `Ŭ ŭ A#B#hH `>D#E#h)p H `>G#H#h 0 b}@ `>J#K#8Hȱ `>9#:#h `>;#<#ȱ `>R#S#ȱ `>P#Q#ȱ `>X#Y#ȱ `>Z#[# L a9ƮƮL 殥L#Ʈ, $ȹ $HH`L=6$^${$$$$H%_%{%%%%%%%%%% &#&F&l& N:ȱ e}iȱiL 9 A>L 9 D ` 9L 9 = N:qȥqL 9 fڠ L& 9 = N:8帑ȱ幑L 9 f}`ڠ L& 9 = N:ȱ >< >L 9 ڠ L& 9? = 0< N: = 0< i< 0< >L 9 ( g} L& =$ =L =L = N: = i<ȭL ; =L =L ; ; ;߰ݐ ;ܰԐ ;͐˰ = N: q}BPASCAL ARCB%DOS SYSB*&DUP SYSBRPAUTORUN SYSCOMPILERPCDB-fEDITOR PCDBERRORS TXTBEXPLNERRPCDBINIT PASINIT PCDNOTITLE OBJRAMDISK1DATRAMDISK2DATRAMDISK3DATRSVDWRDSTXTSAMPLE1 PASSAMPLE2 PAS PASCAL TXTSAMPLE2 PCDSAMPLE1 PCDBMMN11Q3 PASMMN11Q3 PCDMMN12Q1 PAS MMN12Q1 PCD MMN12Q2 PAS MMN12Q2 PCDȥL = N:1ȥ1L IL = N: =& >L = N: =Ff >L 9qqL 9 r} 9 fLh& 98ȱL 9 9 `ڠ L& 9 9L N: N: "; 9 9 9 9 9L  < D 9L s})HhLC( '(h)%3FBD F 9ȱL ȥ }' 'L 9 9 9L J'L& _'L' A pA t} AL =&ee` = =&ee&LQ'iHiH = N:8席! ; ;hhL~ , >ee` =ȑL )L7) '()e% 9 ()L }' (L N: J' 9 () N:L N: N: N: _ w}' 9 ) N:L A A AL N: N: )L ͣ ̤ AL )` N:` x}ȱ N:` N: = 9 N: N:L )? _:ȥȥȥiȥi "; +; :L0 =)HHl y} N:L )&"o L*cL= )L 05 6 9) a98L)& z}ee` 9 a9L@* = 9 >, 9Jȑ 9L^*8ŸŹL = N: )8 {}L ) N:Ÿ :L0 L Ʈ0TL* *ȹ*HH`L=+++,,,-(-+-`-l----. .2.Y.`.|..../ /&/O/ |}b/u////0!0'000011"1-1P1V1e111112222363z33333T4Y4^4444e5555555666'626=6D6K6s6~66w 9L }}+ : 8L+ :HJJJJhHɛ h L+)hH 9hȑL AAAȌ N: @L r 9L , : 9 :+ ~}-+ȹ0;:7H&eeh)eeL+, >)$ ; } ;- A>L AA = N: 9; @L : 9 : >ԑȑL AA `>AA `>AAL - `>AA N: @L } 9 a9L L AA P>8庅廅Aĺ N: @L 9 a9L x 9L}- : : }9L j9 AA 9 E? @L :BݝDAEHI L9 L  = = N:iW&&eeee8帅幅 -" }湥ŪūL %L j9 j9 ͤ L0eͤ 8廅ʠ AAƺL0L } 94 a9L 95 a9L )ȑL 9 a9L : 9 BDEHI L9 a9L 8l 9 9 9 >L = N:8 }L 9 a9 9 a9 9 a9 9 a9L 1L L1 ABL ݅A ح) 9L }2 9 9 >L pBJݝDAE L9 L ȱ N:%L A0 N:AL#3 N:L j9)8LP3i 8o3p3%L } ~  :&B L9 < 9LȽML 9NȑL = N: :LML N%B L9 < N:L j9 }L L L L  )L  ҩL L L L #Ld4$Ld4!Ld4p }BJKݝDAE L9 < i< >L AU : t=L A : pA HAL A :  HA AL 8`$)ԩae7 (ې`)8@0+ }̪Յ)e)e ݦ `F ݢs7 `ڢ ڰC7 @ݢ F I`U9>`D'RFuCU }?b9dYdg@W2@?tS)%@)@0)%ԅԢ ޢ ڰ9 @ݰ. ڰ" fڥ }ԅԥ m7 (`8`0?i (۩ ݢ8 `ڢ ڢ ݢ (ۢ `ڢl } ڥ fƢ ݥ#8@ji@)j `@@ipc <`BJKDE } L9 < :H B L9 `eeZŭ-Ŭ% ; ;L ű Ű }`8Ʊ`L=Hh8HȱP`mm` )&H ; > }: ; N:`BHI L9 <`BDEHI L9 ;I=L~ ; KEY > ;`H BHIh L9 <`ȑ` ; } ;L ; h U> t=`8񰑰񰑰`&` `> t= t=`H) l>hJJJJ 0:i` &&ԆՠI0 i` } p U> < HEX = U>ȱ U> < CHAR =ɛ  t=ȱɛ  t= t= + };8席 ` #L>0)8? @.L? @L? @ 8逮0Τ }iE @ 8-+ @8 i H }@h }@0iiΤ @- @`A̤L@ } X@8JJJJ }@) }@ 0 @ @. @0 @ @. @` 0`8` }A.L@.0Aĸ00̣` @ A` :,80' BĸAḄLAL@` } BݝDBEHI L9 <` j9`BDEHI L9 <`88尥0`L:e }e`ȱ N:`LA LA`|L9 <`88尥0`L:e OoWo_p p pQERROR p ppQpQFILE p!ppQpQLINE p ppQp}Q ?/"?! pEXPLNERR.PCD p5p/p1D!Dp o_/4Dp5p$p5p/:p5p/p1 0}PROGRAM TEST (INPUT,OUTPUT);VAR A:INTEGER; B:INTEGER;BEGIN READ(A,B); WRITELN('A=',A,'B=',B); IF A>0 THEN IF B>0 THENQ} WRITELN('***') ELSE WRITELN('**')ELSE WRITELN('*');IF A>0 THEN BEGIN IF B>0 THENWRITELN('---') ELSE WRITELN('--')END;IFQ} A>0 THEN BEGIN IF B>0 THEN WRITELN('+++')END ELSE WRITELN('++');IF A>0 THEN IF B>0 THEN WRITELN('???')ELSE ELSE WRITELN('Q}??');IF A>0 THEN WRITELN('!!!') ELSEIF B>0 THEN WRITELN('!!') ELSEWRITELN('!');END.EN WRITELN('???')ELSE ELSE WRITELN('PXp ! pRSVDWRDS.TXT p5p/p1D!Dp0 s  `jp 3C P 0 oAPp p }}pPpQpQDraper SoftwareppQpQPascal CompilerppQpQVersion 2}.1 ppQpQpQCopyright 1989ppQby Norm DraperppQpQpQpQp;Enter F}ilename: ppQ!QqB00   `   /? 0 oP p!QpP p}pPp 1DP!DqB00   `E   /? 0 oP.p5p!Dp?0  `!Dp} 0 !D_   p@1DpQSuffix not required, ignoredppQpQ:p5p!Dp?0} ` ! p!D_pA1D!Dp.PASp5p/p1p !pp(0 `tFile not fo}undppQo  `***ERROR  p ppQ `p;!Dp.PCDp5p/p1)!)pp70}p80/00    `"$pP 0 oPp  !)p p9 p:pQEnter List} Output Filespec ppQDefault is E: ppQp 1^P!^pp5`E:p51^}!^ppQ0   ` 2h 0 oPAp5p20 Zp5p2  `H 2h 0 o&P0p5p20 9}p5p2  ` 2h 0 o_P0 00  0 0000 pP p5p240oeo_p4}Pp`C!3pp5` @Pp !3p1p513 0!p p9 p:p4P$0$4}$ap5p2 $zp5p2 `  0 4$pP ` p5p24$0p`N 0pQ } `00pP p pP `Np4P$0$pP$0p5p2 $9p5p2 ` } _ '`_PPPPP$ p5p2`@ow "h` 0p51=  `!=p$p5p/p}1= 0@ "h`0s0  0!=p #C  `, 0o8 0   #}C p!=`!=p #C `{  0o 0o "h ` 00p51Q!Qp$p5p/p1Q } 0p5p20@ "h ` $.p5p2` 0!Qp$p5p/p1Q@ "h ` $Ep5p2` !}Qp$p5p/p1Q@$+p5p2$-p5p2` !Qp$p5p/p1Q@ "h` !Qp$p5p/p1Q}@o !Qpu05o$:` @$=p5p2` 0@o :p5p20o<`\ @$=`:  0@oV }>`P 0@oV 0Po>` @$=p5p2` 0@o 0o=` 0@o'` 00}'0@ ' ` ` !@P $7 0@o 0@o/`$ 0@o(` @$}*p5p2` 0@0$$p5p2`| @$I`A !3pp5 ` @P!p13 00@@}p510$ p5p2 ` !p$p5p/p1@o :p5p!p?0 `" ! p!_pA1!p.P}ASp5p/p1oy S`y @$+`e /?ov -`v /"?PP$*p5p2 ` @o| @$)p5p2` 0} `| @ ` p70p80p !p@eo (p5p20o%`%p5p20@o$`@0}00 "h$Ap5p2 $Fp5p2 `$Ap5p2 ` 0p5p20o Ap5p2 0 } 0@ 0o4 `$p5p20o$0@P `0 `0oOo_p70p8}0p  !)p0   `i$pP 0oCPp  !)p p9 p:$pPo_}$pPp`@o_P  `@P `x `4@ 0 ou   `K4}@ 4@ 0 4@ou 0 4@ 0 4@o 0 4@ 4}@ 0   ` 0 4@o 0  0 o_PPPp70p80 }p9 p:p4P 4$pP 0 4$pP p9 p:ow_   ` @P@e}o_ 0  `@P   ` 0 !=p1  2A 0  ` 2B } 2oA`%uB0  / /2  / /2B  / }/2oA`  2 2B  2 0oA` 2A  2oAa  `}(  2  2oA `A  2PoI_P 0  #p!= ` 0oW } ` @P <o_  `@PP@I0 "A0 `   `$@Po}`)   `&%@Po`S   `P&@Po`}   `z'@Po }`   `(@PPo_PP  ` @P ;p5p2`@e  ` 0 2 2}o  2o* (p5p2 `)@P0@e 0 `T@Po]@P@e ,p5p2 `.  }  0  2 0  `  0  2 0oP  `  0 } 2)p5p2@wP;p5p2 @wPo/_P `vP@I0 "A `j "0os @Po}-`@e@wP 0oa`o`'0o@PP@eo_ ` @}Po`zP@I0 "A `$$@P  "@P  "0  `_"@P 4@ }0 o @PP@eo_P `@PoGaaa`G(p5p2@wP@ } `- @P@P,p5p2 @wP@@P )p5p2 `G@PPoO_  ` "A}aaa`@e "A "@Po`@PP  ` "B@P  }"@P  "0  `"@P 4@ 0 o6_ `0   `| }'@P 0oSP @Pp5@Po`P@I0 "A @OP "Aa`o }a` @Pp5@PPo @PP@eo$_@e(p5p2@wP  `O@PP@I0 }"Aas` "A @OPpD@Poa` "A @OPo @PP@e)p5p2}@wPo_ ` @Po``WP@I0 "A0   `C$@P  @OPo`}$@PP@eoc6oo_ ` 0 o a aaa aa `0 a} aaa aa aa`!o*@PPoaKaK`| }ajaj`mov@PPo` aaaaa`o@PPo}`~ alalalalalal al alal alalal }alal al`oox@PPo `   `@Poaa` a}aaaaa a `o@PPPo/o.o-o%_PP  ` # `3 P}@I0 "A@oP "A ` "@Po) ` "@P "B@P "@Po) }aaaaaaaa `+ "A @OPo)  a= ` P}@P "A `d 0 "`@ @OPo @e0 (p5p2 `@P@e@ 0 },p5p2 `  " `#@P )p5p2 `@P@ @OPP @Po) @PP@eo#`}X @oP @P@eo#` 0   ` '@P 0on P @P  }` p5@Pp2@P@oP@eo#`r!%uB0 / /@P / /}@P / /@P@oP@eo#(`!@e@)p5p2@wPo#`!@oP@e(p}5p2@wP@)p5p2@wPp3@Po#`e"@oP@e(p5p2@wP  `"@PP@I0 "A} @OPp "AB@P@e)p5p2@wPo#`"@oP@$pE@Po#`"@oP@e(p5p2@w}P0 @0 )p5p2@wPo#`#@oP@e(p5p2@wP0 @0 )p5p2@wPPo-  }`' `#@oP@e (p5p2 `_#@P@e@6p@P ,p5p2 `# @P@e@6p/@P },p5p2 `#p@P)p5p2@wPo'`y$@oP@e(p5p2@wP@6,p5p2 @wP@,p5p2 @wP}@wP  `B$@P)p5p2@wP@Pp$@Pp2@Po'`$@oP@$pG@Po'}`$@oP@e(p5p2@wP0 @0 pD@P)p5p2@wPo'`%@e(p5p2@wP #}`B%@e  `7%@P 0o%`|%P@I0 "A  `m% @P "0o%@PP@e)p5p2@w}P @Pp@Po'`&@e0 (p5p2`k&@e #`&@e  `&@P 0oS&`}J&P@I0 "A  `;& @P "0oS&@PP@e)p5p2@wP @Pp@Po'`&@}oP@$pL@Po'`&@oP@$pM@Po'`&@oP@P@eo'`'@oPp(@P}@ePo-  `e) `E'p@P@eo_)`'@oP@e(p5p2@wP  `~'%@PP@I0 }"A "A `'%@P "A @OP@e)p5p2@wPp @Po_)` (@oP@$pJ@P}o_)`l(@oP@e(p5p2@wP@,p5p2 @wP@)p5p2@wPp@Po_)`(@oP@$pK}@Po_)`(@oPp%@P@eo_)`(@oPp&@P@eo_)`(@e@%@Po_)`;)@e}(p5p2@wP@)p5p2@wPp'@Po_)`_)@Pp.@P@ePo-  `, `)@o}P@e(p5p2@wP0 @0 p+@P)p5p2@wPo+`*@oP@e(p5p2@wP@)p5p2@}wPp@Po+``*@oP@e(p5p2@wP@)p5p2@wP @Po+`*@oP@e(p5}p2@wP@6p@P,p5p2 @wP@P@6p?@P)p5p2@wPo+`+@oP@e(p5p2@wP}@)p5p2@wPp@Po+`h+@oP@e(p5p2@wP@pP@P)p5p2@wPo+`+}@Pp.@P@eo+`+@oP@$pF@Po+`+@oP@$pH@Po+`+@oP@$p }I@PPo- `,,@Pp.@P@eo-`v,@oP@e(p5p2@wP@)p5p2@wPp@ }Po-`,@oP@e(p5p2@wP@)p5p2@wPp@Po-`,@oP@P@eo-`- }@e(p5p2@wP  `-%@PP@I0 "A "A `E-%@P "A @OPp@Pp  }0@P@e)p5p2@wPo-@PP_P@% *p5p2     ` }. 0 `.0 @e@% *`(. @Po.`C. @Po.`[.@Po.`s}.@Po.`.@Po.`.@PPo-_P +p5p2 -p5p2`/ 0@e@- }-p5p2`. @Po/@- +p5p2 -p5p2 `/ 0 `J/0 @e@- +`}q/ @Po/-`/ @Po/`/@PPo/_PP@.    `1 0@e }a/`0p@P `0P@I0 "Aa*0`10@6o0aC0`v0 "A @OP}@Pp5@P@eo0 @PPo0`0@6o0 @PP0o1`D1 a0a0a0}`0p5@Pp2@P0@.o>1a1`51p5@Pp@P@60o>1 @PPo1ag1}ag1ag1`10 `1@6p2@Po1@.o1a1`10@.P  @P}on3o1_PPP   `2 @P `2P@I0 "Aa82`?2@6oy2 ``2 }"@P@eoy2 "A @OP@ePo 3`2  `2@6o2'@P@eo 3`2 }@P@eo 3-`3@e@wP @P@eo 3 @PP @P ,p5p2`l3p70p80`}@P@e@1   @P_PPPP@1:p5p2@wPp70p80`@P@i ;`4@e }`3   @P@eo4`Z4p70p80o@P   @P@e@i ;p5p2`94@e@w}P   @Po4p70p80o@P   @P@n3   @PPoB5`4   @}P@eoB5`95p70p80o@P   @P@e@i ;p5p2`5@e@wP   @PoB5}@PPoJ5_ #`m5@e@/@oPo5`5P@I0 "A `5 "@P@eo5 `5@}Po5@Po5 `5@Po5@PPo5_PP@e(p5p2@wP@/0   `M6,p5p2} @wP@/ 0o 6P)p5p2@wP_PPPPPPPPPPPPP0 `;P@I0@e }"A0 0 a6a6 a6a6 `$7 @wP@/ @oP0 "A @OPo;a?7 }a?7`7 0  "@P@e @wP@/ @oP0  @OPo;a7`:  "!}@P `7@e @wP 0 `580   `8 '@P 0o7P @P"}p5@Po:`8P@I0 "A "A `n8%@P "A @OPp@Po:`9@e(p#}5p2@wP  `8@PP@I0 "A @OP@e "Aa9`9oT9a9`K9 :p5p2$}`>9@e0 @/ 0 oH9@PoT9 @PPp "AC@P )p5p2 `9@Po:`*:@e (p5%}p2 `9@P@e@6p@P ,p5p2 `9 @P@e@6p/@P ,p5p2 `9p@P )p5p2 &}`':@Po:`:@e(p5p2@wP@6,p5p2 @wP@/,p5p2 @wP@/ )p5p2 `:@Pp$@'}Po: @PP0 @OP@eo;`~; "`:@ @OPo{;0 (p5p2 `;@P@e0 @/(} 0 ,p5p2 `;  " `L;#@P)p5p2@wP@ @OPP @Po; @PPoO)}`;pN@P@eoO`;pO@P@eoO`;@e@c6 ;p5p2 `;@wPoO`7<@e(p5p2@w*}P@6)p5p2@wPp1@PoO`<@eP@I0 "A0@/  `s<@P  `<p +}@P@e@n3 a<`@e  `=@,}PP@I0 "A0       `W= @P@e @wP 0 @/0  @OP -}`=0o=`=0o=@PP@e@/ 0 @P  @OP `>  @Po.}>  @Pp70 p80 `@P@wP@c6  @OP  @P0  @OPo @P /} @P `>0o>0P @PoO`b?@e@/@wPp70 p80 `@P@c6 0}`L?p70 p80 o@P @P@e@c6 @Po_? @PoO`? 0@e@c61} ;p5p2 `s?@wP@/` @PoO`@ 0@e@/p70 p80 `@P@wP@c6o @2}P @PoO`@@e(p5p2@wP@PP@I0 0 "A @OPP@P@e,3}p5p2 @wP@/,p5p2 @wP@/)p5p2@wPp@@P0 "A @OPoO`A@e(p5p2@wP@64}p@P,p5p2 @wP@PP@I0 "A @OPP@P@e,p5p2 @wP@/)p5p2@wP5}pA@P0 "A @OPoO`A@e(p5p2@wP@6p<@P)p5p2@wPoO`B@e(p5p26}@wP@J5P,p5p2 @wP@PP@I0p7@P0 @OP@e,p5p2 @wP@PP@I0p8@7}P0 @OP@e)p5p2@wPoO`MC@e(p5p2@wP@P@J5P,p5p2 @wP@wP 8}@P,p5p2 @wP@wP @P,p5p2 @wP@6)p5p2@wPp@PoO`C@e (9}p5p2 `tC@P@e@wP @Pp;@P ,p5p2 `tC)p5p2@wPoO`D@e(p5p2@wP:}@J5P,p5p2 @wP@PP@I0 @OPp9@P@e,p5p2 @wP@PP@I0 @OP;}p:@P@e)p5p2@wPoO`D@e(p5p2@wP@6p>@P)p5p2@wPoO`E@e(p5p2<}@wP@6p=@P)p5p2@wPoOaE`lG 0@e (p5p2`HG@e@J5P )p5p2 ` G@=}P ,p5p2`qE@e %p5p2`E0@eoE00 @/ aEaE `E 0okFaE>}aE`E 0okFaE`F0okFaF`"F0okF`4F0okF `bFP@I0 "B?}@PS0okF @PP   `F :p5p2`F@e0 @/@oPoF@P  `F :p5p2`F@e@}0 @/@oPoF@Pp @P ,p5p2 `PE `&GpQ@Po4GP@P)p5p2@wPoiG A}`iG@PpQ@PoO`G@e (p5p2 `G@P@e@J5Pp @P ,p5p2 `G)p5p2B}@wPoOaG`gJ0@e (p5p2 `H@P@e@J5P@P ,p5p2`3H@e  `FH@PC}P@I0 "AakH`H "A`~H@e "A "@Pp "A@P0 "A @OPo-JD}aH`%I "A`H@e "A "@Pp "A@P0 "A @OPo-Ja7I`I "AE}`JI@e "A "@Pp "A @P0 "A @OPo-JaI`I "A`I@ep @PF} "A "@P0 "A @OPo-J `$J "B@PpR@P0 @OPo-J @PP@e G},p5p2 `HP@P)p5p2@wPoOayJ` K `J0oJ0@e(p5p2@wP@PH}@J5P@Pp @P @P@P,p5p2 @wP@6)p5p2@wPp@PoO`K@e(pI}5p2@wP@J5Pp)@P,p5p2 @wP@PP@I00 @OP@e)p5p2@wPoO`K@5PJ}@@PoO`K@5Pp@PoO`Kp*@P@eoO`L@5Pp@PoO`8Lp!@K}P@eoO`Lp-@P@e(p5p2@wP0  `L@PP@I00 @OP@e,p5p2 @wPL} 0ojLP@PP@I00 @OP@e)p5p2@wPoO`Mp@P@eoO`1M@5PpM}@PoO`RM@5Pp@PoO`sM@5Pp4@PoO`M@5Pp6@PoO`M@5N}Pp@PoO`N@e(p5p2@wP@/,p5p2 @wP@/)p5p2@wP0@PoO`0N@5PO}p@PoO`QN@5Pp@PoO`mNp#@P@eoO`N@e (p5p2`N@e@/)p5p2P}@wPoN@Pp"@PoO`N@5Pp,@PoO`&O@e(p5p2@wP@6p @P)p5p2Q}@wPoO`O@e(p5p2@wP@,p5p2 @wP@J5P,p5p2 @wP@,p5p2 @wP@,p5p2 @R}wP@6p@P)p5p2@wPP_PPPPPPPPPPPPPP00p70 p80o@PS} `Q@e  `6P@P!=p1D@e@wP `gP 0oP`yP0oP-`P@e `T}P 0 0oP`P0%5oP@PPoP@PP@/!Dp1= @P;p5p2 @wP U} `6P `U@e0 000 0 `YQ@PobQ@P@e ,p5p2`~Q@eoQ0 `DQV}:p5p2@wP `!R@e[p5p2@wP@/ 0 ,p5p2`Q@e@/ 0 ]p5p2@wP W} `R@P@wP a7R`IR00 @eowS`eR00 @eowS`R00 @eowSX}`%S0P0@e [p5p2`S@e `RoS`RP@I0 "A  `R @P "0oS@PY}P@e]p5p2@wP 0 owS`_S  `AS@P 0  00 @eowS`wS 00 @eP  Z} 0  `S `S0oS`S0oS`S0oS`S0oS @PP 0[}   `'U  2A  2B  2  `\T 0 0    \}0  `T  `T@P  2 0 oTaTaTaT`T  2  2]}P  `U 0 0oTP;p5p2 @wP `U `YU"@P  "2B^}0 @e;p5p2 @wP  `+Q  `1V `U0oU 0@e `U @PoU@P 0_}@e @P  @OP 0;p5p2 @wPoU `W  @P 2P@P `} `W 0   `W "B `W " "0 "A`VP "B@PoW` Wa} @PP "B@PoWaW`2WP "A@PoWaDW`gW @PP "A@PoWb}`WP "A@PoW`W @PP "A@PP 0oVP@e@c6 ;p5p2 `W@wPc}@PoW@P_PPPPPPPPPPPPPPPTTTPPPPPPPUWQQQQd}QQQRSRRRRRRsSQ@@e `X0 @eoX0 `Yp4P$e}pP$;p5p2`X p5p24@e@OP .p5p2 `)Y @P0 4$pP$pP$}o{o_}pP        DRAPER SOFTWAREppQ            EDITORppQpQg}      A - Add line(s) at endppQ      C - Change line(s)ppQh}      D - Delete line(s)ppQ      E - Edit line(s)ppQ     i} F - Filer menuppQ      I - Insert before lineppQ      L - j}List line(s)ppQ      M - MenuppQ      P - Print line(s)ppQk}      Q - QuitppQ      S - Scan line(s)ppQ      X - Exit l}to CompilerppQo_ d `, pP   `E pP p:pPoa_ @m}PR ?p 17Pp(`p p p  ppQR ?U ?o_ n}0  `8ppQ0o=_0  0 o}  pPp 17P!7pp5 `!7pp00   `0    ` 0   p}pPp 17P!7pp5 `!7pp00    `% 0    `: 0 o?_0@= 0  q} ` @PR ? #ppQ0  #p (   `pP 0 oPp 3PR r}?U ? 0oXPo_ pP!7qB0 0   `t  s} /? 0 oCP!7ppQ                   ppPp 1P!qB0 0t}   `    /? 0 oP:p5p!p?`;!2p!_pA1!p 0.p5p!u}p?`.PASp5p!_ pA1o_ pPp0 P  `0 o_@0 v}p !pp(0   ` 0 oK0   `H #ppQp(0   `; 0  0oPw}p E:p5pp;  `p***Error  p p while saving to diskppx}Q0o_ ` ppQEnter "I" to IGNOy}RE and continue ppQ   or "S" to SAVE   and continue ppQp4P$z}Ip5p2$Sp5p2` $Sp5p2` @o _ ` 0 p` p`G p4P$ p5p2`B 0 oG{} 0 oL _@ @aP !7p1!7pp5`O 0 0o _@p p6pQLoading Com|}piler ...ppQp;!2pCOMPILER.PCD p5p/p1 ! p o _@=0    `v }} 0   0   #p1 0o, P0   0o _Filespec?  ~}pPp 17P!7pp5` !2p*.*p5p/p17:p5p!7p?` !2p!7_pA17.p5p!7p?`Z }*.*p5p!7_!7p pA17!7pp 17P!7ppQp 17Pp`v p o _0@ }@aP!7pp5 `: 0   ` 0   #p1 0o P@ !7p1 0  }@aPo o? _@= 0   ` @PR ? #ppQR ?U ?@ $` 0} 0oR Po _@=p;p P:p5pp( `uppQ}ppQp;p.`Vp P:p5p 0   ` @P #p}pQ 0oPp;p E:p5pp;o_Pp;@p !pp(0p( `-}ppQ `p`@p 3Pp(`p p p  ppQo7} 0p  p lines now in memoryppQo_P@=p}Pp 1bPpPp 1P!bp 0  0   `< #p170!}bp!7p?0 !bp!7p? `00!7_  p@17!p!7_ pA17 !7p1 `/ }@P!7ppQ@  0oyPoD_@= pPp 1bP 0   ` }#p17!bp!7p? ` @P!7ppQ@ $` 0 0oPo_      A} - Append fileppQ      D - Directory listppQ      L - Load} fileppQ      S - Save fileppQp4P$Ap5p2$Dp5p2$Lp5p2$}Sp5p2`$A`?  `80@ovD`O@ ovL`i00@ovS`v@P_TPPP}PPPPPPPQQQTQPQPQPSP/46Dp5p$6p5p/:p5p/p120p E:p5p@p};R/0 0A,C,D,E,F,I,L,M,P,Q,S,X,?->pPp4P$ppQ$A`@}L olC`@olD`@ olE`@?olF`@olI`@ olL`@? olMa?`@o}lP`@ olQ`olS`-@DolX`=@ olpppQP$Qp5p2}`@p p;!2pINIT.PCDp5p/p1 ! p }Compiler table overflow (max 200)Number expected'=' expectedIdentifier expectedConstant type identifier, number, or strin}g constant expected'BEGIN' expectedToo many nesting levels':' expected'.' expected';' expectedUndeclared identifierInv}alid type of identifier':=' expected'END' expected';', 'ELSE', or 'END' expected'THEN' expected'#' expected'DO' expecte}d'#' or FILE type identifier expected'[' expected']' expected')' expectedIllegal factor or identifier typeINCLUDE file }nesting too deep'OF' expectedMismatched data types'TO' or 'DOWNTO' expected'UNTIL' expectedRange error'(' expected','} expectedLiteral too long or missing end quote (')'END' but no RECORD startedIncorrect number of parametersINTEGER type i}dentifier expectedSTRING type identifier expectedREAL type identifier expectedCHAR type identifier expectedFILE type iden}tifier expectedHEX type identifier expectedSTRING constant expectedCHAR type identifier expectedFILE type idenQo_PPQPTTQ/41Dp5p$1p5p/:p5p/p120/0!2pERRORS.TXT p5p/p1}p !p   ` 0p 1Po!ppQp  ppQError detectedpp}QpQEnter E to return to EditorppQ   or M to return to Main M}enuppQp40P$0Ep5p2$0Mp5p2`$0E`!2pEDITOR.PCD p5p/p1!p o$M}`$!2pINIT.PCDp5p/p1!p P}(* INITIAL MENU PROGRAM *)(* AS OF 09/08/89 *)(*$S+*)PROGRAM INIT;CONST CLEAR=125; CURSOR=752; ON=0; OFF=1; "} RAMTOP=$6A; LASTFILE=$1D82; DEFAULT_DRV=$1D94;VAR BASENAME:STRING[11]; PGMNAME:STRING[30]; DATA:STR"}ING[128]; I,J:INTEGER; REPLY,DRIVENO:CHAR; DRIVE:STRING[3];PROCEDURE PRESSANY;BEGIN WRITELN; WRITE('"}'); READ(REPLY) END; BEGIN (*MAIN*) DRIVENO:=PEEK(DEFAULT_DRV); DRIVE:=CONCAT('D',DRIVE"}NO,':'); GRAPHICS(0); POKE(CURSOR,OFF); WRITE(CHR(CLEAR)); GOTOXY(2,0); WRITELN(' DRAPER PASCAL'); WRITELN; "}WRITELN(' VERSION 2.1'); WRITELN; WRITELN(' 1 - Run Program'); WRITELN; WRITELN(' 2 - Disk Direc"}tory'); WRITELN; WRITELN(' 3 - Compile Program'); WRITELN; WRITELN(' 4 - Edit a Program'); WRITELN; WRITE"}LN(' 5 - Exit to DOS'); WRITELN; WRITELN(' 6 - List a file'); WRITELN; WRITELN(' 7 - Trace on'); GO"}TOXY(2,22); WRITELN(' Copyright 1989'); WRITE(' by Norm Draper'); GOTOXY(2,18); REPEAT READ(REPLY) UNT"}IL (REPLY>'0') AND (REPLY<'8'); CASE REPLY OF '1': BEGIN (* Run Program *) REPEAT WRITELN(' Enter name of progr"}am to be run'); WRITELN; POKE(CURSOR,ON); J:=ADDR(PGMNAME); FOR I:=0 TO 16 DO POKE(J+I,PEEK(L"}ASTFILE+I)); WRITE(' '); WRITELN(PGMNAME); WRITE(' ',CHR(28)); READLN(BASENAME); "}J:=ADDR(BASENAME); FOR I:=0 TO 16 DO POKE(LASTFILE+I,PEEK(J+I)); I:=POS('.',BASENAME); IF I<>0 THEN"} BEGIN J:=LENGTH(BASENAME); DELETE(BASENAME,I,J-I+1); WRITELN; WRITELN('Suffi"}x not required, ignored'); WRITELN END; IF POS(':',BASENAME)=0 THEN INSERT(DRIVE,BASENAME,1);"} PGMNAME:=CONCAT(BASENAME,'.PCD'); OPTIONS(0); OPEN(#4,4,0,PGMNAME); I:=IORESULT; CLOSE(#4);"} IF I=170 THEN WRITELN(''); OPTIONS(1) UNTIL I=0; WRITE(CHR(CLEAR)); XCTL(PG"}MNAME) END; '2': BEGIN (* Disk Directory *) CLOSE(#1); POKE(CURSOR,ON); WRITE('Filespec? '); READLN(DATA);"} POKE(CURSOR,OFF); IF DATA='' THEN DATA:=CONCAT(DRIVE,'*.*'); IF POS(':',DATA)=0 THEN INSERT(DRIVE,DAT"}A,1); IF POS(':',DATA)=LENGTH(DATA) THEN INSERT('*.*',DATA,LENGTH(DATA)+1); OPEN(#1,6,0,DATA); READLN(#1,PG"}MNAME); WRITE(CHR(CLEAR)); WHILE NOT EOF(#1) DO BEGIN WRITELN(PGMNAME); READLN(#1,PGMNAME) END; CLOSE"}(#1); PRESSANY; PGMNAME:=CONCAT(DRIVE,'INIT.PCD'); XCTL(PGMNAME) END; '3': BEGIN (* Compile Program *) "}MAXGRAPH(0); WRITELN('Loading Compiler...'); POKE(CURSOR,ON); PGMNAME:=CONCAT(DRIVE,'COMPILER.PCD');"} XCTL(PGMNAME) END; '4': BEGIN (* Edit a Program *) MAXGRAPH(0); WRITELN('Loading Editor...')"}; PGMNAME:=CONCAT(DRIVE,'EDITOR.PCD'); XCTL(PGMNAME) END; '5': BEGIN (* Exit to DOS *) POKE("}CURSOR,ON); DOS END; '6': BEGIN (* List a file *) WRITELN('Enter filename of file to be listed'); PO"}KE(CURSOR,ON); WRITELN; READLN(PGMNAME); POKE(CURSOR,OFF); IF POS(':',PGMNAME)=0 THEN INSERT(DRIVE,PGMN"}AME,1); CLOSE(#1); OPEN(#1,4,0,PGMNAME); READLN(#1,DATA); WRITE(CHR(CLEAR)); WHILE NOT EOF(#1) DO B"}EGIN WRITELN(DATA); READLN(#1,DATA) END; CLOSE(#1); PRESSANY; PGMNAME:=CONCAT(DRIVE,'INIT.PCD'); XCTL(P"}GMNAME) END; '7': BEGIN (* Trace on *) POKE(CURSOR,ON); WRITELN('Enter number of entries to maintain: '); READ("}I); TRACEON(I); PGMNAME:=CONCAT(DRIVE,'INIT.PCD'); XCTL(PGMNAME) END ENDEND.entries to maintain: '); READ( [oWo_pQpPt4bP_Q QQPPTTQ/4c&}Dp5p$cp5p/:p5p/p1dp?}pPp           DRAPER PASCALppQpQ &}           VERSION 2.1ppQpQ        1 - Run ProgramppQpQ    &}    2 - Disk DirectoryppQpQ        3 - Compile ProgramppQpQ &}       4 - Edit a ProgramppQpQ        5 - Exit to DOSppQpQ &}       6 - List a fileppQpQ        7 - Trace onppQp      &}    Copyright 1989ppQ          by Norm DraperpPpt4bP$b0&}p5p2 $b8p5p2 `Y$b1`  Enter name of program to be run!ppQpQ?&}! qB0a0` ` `, a ` `/? `0`oP        pP! ppQ     &}   ppPp 1P!qB0a0` ` ` ` a `/? `0`oP.p5p!p?0` `&} `\!p 0a!_ ` a `p@1pQSuffix not required, ignoredppQpQ:&}p5p!p?`!dp!_pA1!p.PCDp5p/p1 p;! pp(0`p ``&}ppQp; ``}pP! p o? 2`zp ?Filespec?  pPp 1P&}?!pp5`!dp*.*p5p/p1:p5p!p?`!dp!_pA1:p5p!p?!p `*.&}*p5p!_!p pA1!pp 1 P}pPp`D! ppQp 1 Pop @!dp&}INIT.PCDp5p/p1 ! p o? 3`p6Loading Compiler...ppQ?!dpCOMPI&}LER.PCD p5p/p1 ! p o? 4`]p6Loading Editor...ppQ!dpEDITOR.PCD p5p/&}p1 ! p o? 5`r?p*o? 6` Enter filename of file to be listed#pp&}Q?pQp 1 P?:p5p! p?` !dp! _pA1 p ! pp 1P}pPp&}`h !ppQp 1PoA p @!dpINIT.PCDp5p/p1 ! p o? 7`? ?Enter num&}ber of entries to maintain: %ppQp0`P `p"!dpINIT.PCDp5p/p1 ! p P&} of entries to maintain: %ppQp0`P `p"!dpINIT.PCDp5p/p1 ! p P$wof entries to maintain: %ppQp0`P `p"!dpINIT.PCDp5p/p1 ! p P(PZPWPDTXPEUYPHZPIB VVPHXIY B V`VP`[PkPDp5p/p1 ! p P,gD1:D8:INIT.PCDEDITOR.PCDCOMPILER.PCDEXPLNERR.PCDERRORS.TXTRSVDWRDS.TXTAUTORUN.SYS`[PkPDp5p/p1 ! p P0Zo_TPPQQQQQD1:COPYLIST.TXTp5pp 1Pp 1 P! pCOMPILER6}.PCD p5p/p1(p;!(pp(0p;p  `D1:COPYFILE.OBJp5p1/0 0 6}/0Copying:ppQp 1Pp`!p!p/p1! p!p/p1(!p -> 6}p!(ppQp p !p!(p Op p p 1Po,p ! qB0 /?! pI6}NIT.PCDp5p/p1(!(p NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN4}ABSADDRANDARCTANARRAYASCBEGINBLOADBOOLEANCALLCASECHARCHRCLOSECOLORCONCATCONSTCOPYCOSCVTREALDEGDELETEDIV:}DODOSDOWNTODRAWTODUMPSTKDVSTATELSEENDEOFEOLNEXITEXPEXP10FALSEFILEFORFUNCFUNCTIONGOTOXYGRAPHICSHIMEMIFI:}NSERTINTEGERIORESULTKEYPRESSLENGTHLNLOCATELOCKLOGLPENHLPENVMAXGRAPHMODNOTNOTEODDOFOPENOPTIONKEOPTIONSORO:}RDPADDLEPEEKPLOTPOINTPOKEPOSPROCPROCEDURPROGRAMPTRIGPURGERADREADREADLNREALRECORDREPEATRESETREWRITERNDSEL:}ECTKESETCOLORSHLSHRSINSOUNDSQRSQRTSTARTKEYSTATUSSTICKSTRSTRIGSTRINGTHENTOTRACEOFFTRACEONTRUEUNLOCKUNTILV:}ALVARWAITWHILEWRITEWRITELNXCTLXIOSTARTKEYSTATUSSTICKSTRSTRIGSTRINGTHENTOTRACEOFFTRACEONTRUEUNLOCKUNTILV8)PROGRAM KALEIDOSCOPE;VAR I,J,K,W,X:INTEGER;BEGIN MAXGRAPH(19); GRAPHICS(19); X:=0; REPEAT FOR W:=3 TO 50 DO BEGIN >} FOR I:=1 TO 10 DO BEGIN FOR J:=0 TO 10 DO BEGIN K:=I+J; COLOR(J*3/(I+3)+I*W/12); PLOT(I>}+8,K); PLOT(K+8,I); PLOT(32-I,24-K); PLOT(32-K,24-I); PLOT(K+8,24-I); PLOT(32-I,K); >} PLOT(I+8,24-K); PLOT(32-K,I) END END END UNTIL X=99 (* UNENDING LOOP *)END. PLOT(32-I,K); <cPROGRAM ROMAN;(* ROMAN NUMERAL SAMPLE PROGRAM *)(* ADAPTED FROM PASCAL USER MANUAL AND REPORT BY JENSEN AND WIRTH B} *) VAR X,Y:INTEGER; BEGIN Y:=1; REPEAT X:=Y; WRITE (X,' '); WHILE X>=1000 DO BEGIN WRITE ('M'); X:=X-B}1000 END; IF X>=500 THEN BEGIN WRITE ('D'); X:=X-500 END; WHILE X>=100 DO BEGIN WRITEB} ('C'); X:=X-100 END; IF X>=50 THEN BEGIN WRITE ('L'); X:=X-50 END; WHILE X>=10 DO BEGIN B} WRITE ('X'); X:=X-10 END; IF X>=5 THEN BEGIN WRITE ('V'); X:=X-5 END; WHILE X>=1 DO BEGB}IN WRITE ('I'); X:=X-1 END; WRITELN; Y:=Y*2 UNTIL Y>5000 END.; X:=X-5 END; WHILE X>=1 DO BEG@PReturn-path: Received: from TERMINATOR.CC.UMICH.EDU by STONY-BROOK.SCRC.Symbolics.COM via INTERNET wF}ith SMTP id 804592; 5 Jun 90 17:45:18 EDT Received: from iris.ucdavis.edu by terminator.cc.umich.edu (5.61/1123-1.0) id AA13F}863; Tue, 5 Jun 90 17:44:48 -0400 Received: by iris.ucdavis.edu (5.57/UCD.EECS.2.0) id AA15779; Tue, 5 Jun 90 14:42:51 PDT DF}ate: Tue, 5 Jun 90 14:42:51 PDT From: hulse@iris.ucdavis.edu (C. Andy Hulse) Message-Id: <9006052142.AA15779@iris.ucdavis.eduF}> To: jrd@terminator.cc.umich.edu Subject: pascal.uue This is a Uuencoded arc file of Draper Pascal. Draper Pascal is a shF}areware Pascal compiler that incorporates a subset of Pascal (I don't think it has pointers), and extra commands for graphicF}s and DOS calls. I haven't played with it much yet, but it appears to only compile to p-code; that is, it checks syntax, andF} compiles the program to 'tokens', much as BASIC does. The documentation for Draper Pascal is a companion archive, pasdoc.arF}c. Enjoy! --Andy Hulse hulse@iris.ucdavis.edu BTW, Many thanks to siders@cis.ohio-state.edu for sending this to me. oc.arDxo_PP0 0 p pP  `YMpP 0o0  `DpP 0J} d `CpP d0o 2 `LpP 20   `XpP  0o  `J}VpP 0  `<IpP 0opQ 0  `H}o_PPPPPp6p002  `90   `)0   `  0   N}  p  p  p  p  p  p  p  N}p  p 0oOP 0o=P 0o*P c`"L}pPp p pQpQADDR   NAME ppQ---- -------- ppQ0   `xZ "A0}                 `kZ " `?Z00pP "p }pP #ppQ 0 oYPpQ 0 p Compiler table entries usedpp}Qp /"?ppQ 0 oYPpQ 0 p Compiler table entries usedppo_PPp0p0PA=p pB=p ppQ  `  `r***ppQo**pW}pQo*ppQ  `  `---ppQo--ppQ  `  `+++ppQo++ppQ W} `#  ` ???ppQo o1??ppQ  `N!!!ppQou  `i!!ppQou!ppQT}(* Maman 12 question 1 *)(* Objective:(* Calculate the balance of a bank account *)(* Input: Initial balance, Movement....[}Movment *)(* Output: The Initial balance, the movements, The final Balance *)PROGRAM Balance (INPUT,OUTPUT);VAR Balance :[} INTEGER; Movement: INTEGER;BEGIN Read(Balance); IF NOT EOF(INPUT) THEN BEGIN WRITELN('The initial balance is ',Balance[}); WRITELN('IN':5,'OUT':6); WRITELN('-----------'); READ(Movement); WHILE NOT EOF(INPUT) DO BEGIN Balance := Balan[}ce + Movement; IF Movement>0 THEN WRITELN(Movement:5) ELSE IF Movement <0 THEN WRITELN(Movement:11); READ(Mo[ }vement); END; WRITE('The final Balance is ',Balance); IF Balance<0 THEN WRITELN(' Overdraft') ELSE WRITELN; EN[ }D ELSE WRITELN('No input');END.Balance is ',Balance); IF Balance<0 THEN WRITELN(' Overdraft') ELSE WRITELN; ENX#o_PPp0P\}`@p p;!2pINIT.PCDp5p/p1 ! p `d}